home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr05
/
mswlogo3.zip
/
MSWLOGO.ZIP
/
LOGOLIB.ZIP
/
MDARRAY
< prev
next >
Wrap
Text File
|
1991-08-29
|
264b
|
11 lines
to mdarray :sizes [:origin 1]
local "array
make "array (array first :sizes :origin)
if not emptyp bf :sizes ~
[for [i :origin [:origin + (first :sizes) - 1]] ~
[setitem :i :array (mdarray bf :sizes :origin)]]
output :array
end
bury "mdarray